home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 52 / Amiga Format AFCD52 (Issue 136, May 2000).iso / -serious- / programming / basic / mildred / lha / mildredtests.lha / MildredTest2.ascii < prev    next >
Text File  |  1998-11-16  |  1KB  |  59 lines

  1. WBStartup
  2.  
  3. ;Test Mildred
  4.  
  5. FindScreen 0
  6. Window 0,16,16,500,400,$2|$4|$400,"Test",0,1
  7. WindowOutput 0
  8. InitBank 0,(320*256)+16,$10001
  9.  
  10. MReservec2pWindows 10
  11. MReserveBitmaps 10
  12. MReserveShapes 10
  13.  
  14. MAutoCookie On
  15. MAutoStencil On
  16. MAutoUsec2pWindows On
  17. MAutoUseShapes On
  18. MAutoUseBitmaps On
  19. MAutoShapeWrap Off
  20. MAutoBitmapWrap Off
  21.  
  22. For s=0 To 9
  23.   NPrint MCludgeShape(s,64,32,Bank(0))
  24. Next s
  25. For b=0 To 9
  26.   NPrint MCludgeBitmap(b,320,256,Bank(0))
  27. Next b
  28.  
  29. NPrint "Current shape: ",MUsedShape
  30. NPrint "Current bitmap: ",MUsedBitmap
  31.  
  32. MUseShape 7
  33. MUseBitmap 7
  34.  
  35. NPrint "Current shape: ",MUsedShape
  36. NPrint "Current bitmap: ",MUsedBitmap
  37.  
  38. MFreec2pWindows 0,2
  39. MFreeShapes 0,2
  40. MFreeBitmaps 2,4
  41.  
  42. MBitmapWrap 7,On
  43. MShapeWrap 4,On
  44. MShapeWrap 5,On
  45.  
  46. MMakeStencils 6,8
  47. MFreeStencils 8,9
  48. NPrint "SBytes: ",NPeekL(MAddrBitmap(7)+32) ; Data
  49. NPrint "Type: ",NPeekB(MAddrBitmap(7)+6) ; Type
  50. NPrint "XWrap: ",NPeekB(MAddrBitmap(7)+38) ; Xwrap
  51. NPrint "YWrap: ",NPeekB(MAddrBitmap(7)+39) ; Ywrap
  52. MMakeCookies 6,8
  53. MFreeCookies 5,6
  54. NPrint "SBytes: ",NPeekL(MAddrShape(4)+32) ; Data
  55. NPrint "Type: ",NPeekB(MAddrShape(4)+6) ; Type
  56. NPrint "XWrap: ",NPeekB(MAddrShape(4)+38) ; Xwrap
  57. NPrint "YWrap: ",NPeekB(MAddrShape(4)+39) ; Ywrap
  58.  
  59.